home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 May
/
EnigmA AMIGA RUN 18 (1997)(G.R. Edizioni)(IT)[!][issue 1997-05][EAR-CD II].iso
/
programs
/
benchtrash
/
benchtrash.lha
/
BenchTrash
/
Extras
/
RemoveDevice
< prev
next >
Wrap
Text File
|
1997-04-07
|
402b
|
22 lines
;$VER: Full device remover
;Steve Clack (Liquid Software Design ) v1.0
;Call the Total Eclipse BBS on +44(0)1983 522428!
;(make sure the 's' protect bit is set on this file!)
.key Device/A
.bra {
.ket }
FailAt 100
ResolveDeviceName >ENV:DEV {Device}
Echo >ENV:DEVO $DEV NOLINE
Echo >>ENV:DEVO ":" NOLINE
Assign {Device} DISMOUNT
Assign $DEVO DISMOUNT
Delete >nil: ENV:DEV
Delete >nil: ENV:DEVO